home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir36 / abatvw2.zip / AINSTALL.BAT < prev    next >
DOS Batch File  |  1994-07-02  |  1KB  |  60 lines
  1. @echo off
  2. echo off
  3. AMSG INSTL.TXT
  4. :GTOP
  5. ABATMENU +27 15 116 121 233 " GET FILES " "From Drive A:" "From Drive B:" "From Drive C:" "From Drive D:" Exit
  6. IF ERRORLEVEL 5         GOTO IEXIT
  7. IF ERRORLEVEL 4         GOTO DDRV
  8. IF ERRORLEVEL 3         GOTO CDRV
  9. IF ERRORLEVEL 2         GOTO BDRV
  10. IF ERRORLEVEL 1         GOTO ADRV
  11. IF ERRORLEVEL 0         GOTO IEXIT
  12. GOTO GTOP
  13. :ADRV
  14. SET FROMDRV=A:
  15. GOTO GBOT
  16. :BDRV
  17. SET FROMDRV=B:
  18. GOTO GBOT
  19. :CDRV
  20. SET FROMDRV=C:
  21. GOTO GBOT
  22. :DDRV
  23. SET FROMDRV=D:
  24. :GBOT
  25. ABATMENU +27 15 116 113 234 " INSTALL " "To Drive A:" "To Drive B:" "To Drive C:" "To Drive D:" Exit
  26. IF ERRORLEVEL 5         GOTO IEXIT
  27. IF ERRORLEVEL 4         GOTO TODDRV
  28. IF ERRORLEVEL 3         GOTO TOCDRV
  29. IF ERRORLEVEL 2         GOTO TOBDRV
  30. IF ERRORLEVEL 1         GOTO TOADRV
  31. IF ERRORLEVEL 0         GOTO IEXIT
  32. GOTO GBOT
  33. :TOADRV
  34. SET DRIVE=A:
  35. GOTO PUTB
  36. :TOBDRV
  37. SET DRIVE=B:
  38. GOTO PUTB
  39. :TOCDRV
  40. SET DRIVE=C:
  41. GOTO PUTB
  42. :TODDRV
  43. SET DRIVE=D:
  44. :PUTB
  45. AMSG +27 15 49 176 /ask "Install to Directory Abatview"
  46. IF ERRORLEVEL 1 GOTO SUBD
  47. IF ERRORLEVEL 0 GOTO ROOT
  48. GOTO PUTB
  49. :ROOT
  50. ACLS +23
  51. COPY %FROMDRV%\*.* %DRIVE%\
  52. ACLS /HZ +7
  53. GOTO IEXIT
  54. :SUBD
  55. ACLS +23
  56. MD %DRIVE%\ABATVIEW
  57. COPY %FROMDRV%\*.* %DRIVE%\ABATVIEW
  58. ACLS /HZ +7
  59. :IEXIT
  60.